Programmer Plus 2007

home *** CD-ROM | disk | FTP | other *** search

/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Personal Organiser / Address.frm (.txt) next >

Wrap

Visual Basic Form | 2000-08-12 | 24.9 KB | 816 lines

VERSION 5.00 Object = "{FAE1731F-430A-11D4-B183-D1B9690DF016}#22.0#0"; "FORMINDIVIDUAL.OCX" Object = "{56034C77-7369-44EE-828E-D0C208D19BDF}#8.0#0"; "GOLD BUTTON.OCX" Begin VB.Form Contacts BackColor = &H80000004& BorderStyle = 0 'None Caption = " Personal Organiser 3.0" ClientHeight = 3720 ClientLeft = 0 ClientTop = 0 ClientWidth = 3720 Icon = "Address.frx":0000 LinkTopic = "Form1" Picture = "Address.frx":1272 ScaleHeight = 3720 ScaleWidth = 3720 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin pOCX.GoldButton Command11 Height = 270 Left = 2960 TabIndex = 8 Top = 2160 Width = 615 _ExtentX = 1085 _ExtentY = 476 Caption = "New" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin VB.PictureBox Picture2 AutoSize = -1 'True BackColor = &H8000000D& BorderStyle = 0 'None Height = 360 Left = 125 Picture = "Address.frx":2E374 ScaleHeight = 360 ScaleWidth = 450 TabIndex = 15 Top = 840 Width = 450 End Begin VB.PictureBox Picture3 AutoSize = -1 'True BackColor = &H8000000D& BorderStyle = 0 'None Height = 360 Left = 120 Picture = "Address.frx":2EC56 ScaleHeight = 360 ScaleWidth = 450 TabIndex = 14 Top = 1215 Width = 450 End Begin VB.PictureBox Picture4 AutoSize = -1 'True BackColor = &H8000000D& BorderStyle = 0 'None Height = 360 Left = 2025 Picture = "Address.frx":2F538 ScaleHeight = 360 ScaleWidth = 450 TabIndex = 13 Top = 1200 Width = 450 End Begin VB.PictureBox Picture5 AutoSize = -1 'True BackColor = &H8000000D& BorderStyle = 0 'None Height = 360 Left = 2025 Picture = "Address.frx":2FE1A ScaleHeight = 360 ScaleWidth = 450 TabIndex = 12 Top = 840 Width = 450 End Begin VB.TextBox Text3 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 280 Left = 800 TabIndex = 3 Top = 2880 Width = 2055 End Begin VB.TextBox Text2 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 280 Left = 800 TabIndex = 2 Top = 2520 Width = 2055 End Begin VB.TextBox Text1 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 280 Left = 800 TabIndex = 1 Top = 2160 Width = 2055 End Begin FormIndividual.IndForm IndForm1 Left = 4320 Top = 4560 _ExtentX = 873 _ExtentY = 873 End Begin pOCX.GoldButton Command1 Height = 270 Left = 2960 TabIndex = 9 Top = 2520 Width = 615 _ExtentX = 1085 _ExtentY = 476 Caption = "Add" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin pOCX.GoldButton Command10 Height = 270 Left = 2960 TabIndex = 10 Top = 2880 Width = 615 _ExtentX = 1085 _ExtentY = 476 Caption = "Save" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin pOCX.GoldButton Command6 Height = 270 Left = 2960 TabIndex = 11 Top = 3240 Width = 615 _ExtentX = 1085 _ExtentY = 476 Caption = "Delete" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin pOCX.GoldButton Command2 Height = 285 Left = 820 TabIndex = 4 Top = 3240 Width = 450 _ExtentX = 794 _ExtentY = 503 Caption = "| <" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin pOCX.GoldButton Command3 Height = 285 Left = 1350 TabIndex = 5 Top = 3240 Width = 450 _ExtentX = 794 _ExtentY = 503 Caption = "<<" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin pOCX.GoldButton Command4 Height = 285 Left = 1865 TabIndex = 6 Top = 3240 Width = 450 _ExtentX = 794 _ExtentY = 503 Caption = " >>" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin pOCX.GoldButton Command5 Height = 285 Left = 2380 TabIndex = 7 Top = 3240 Width = 450 _ExtentX = 794 _ExtentY = 503 Caption = " | >" Alignment = 2 ForeColor = -2147483630 DownColor = 255 SkinDisabledText= -2147483632 SkinHighlight = -2147483628 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty OnDown = 2 End Begin VB.Shape Shape6 Height = 315 Index = 3 Left = 2370 Top = 3230 Width = 480 End Begin VB.Shape Shape6 Height = 315 Index = 2 Left = 1845 Top = 3230 Width = 480 End Begin VB.Shape Shape6 Height = 315 Index = 1 Left = 1335 Top = 3230 Width = 480 End Begin VB.Shape Shape6 Height = 315 Index = 0 Left = 810 Top = 3230 Width = 485 End Begin VB.Shape Shape5 Height = 300 Left = 2940 Top = 3230 Width = 645 End Begin VB.Shape Shape4 Height = 300 Left = 2940 Top = 2870 Width = 645 End Begin VB.Shape Shape3 Height = 300 Left = 2940 Top = 2498 Width = 645 End Begin VB.Shape Shape1 Height = 304 Left = 2940 Top = 2138 Width = 638 End Begin VB.Label Label4 Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00000000& Caption = "Personal Organiser 3.0" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000009& Height = 180 Left = 728 TabIndex = 24 Top = 337 Width = 2295 End Begin VB.Label Title Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00000000& BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000009& Height = 335 Left = 620 TabIndex = 23 Top = 248 Width = 2438 End Begin VB.Shape Shape2 Height = 365 Left = 600 Shape = 4 'Rounded Rectangle Top = 240 Width = 2480 End Begin VB.Label Label3 AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "E-Mail :" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 165 Left = 148 TabIndex = 22 Top = 2920 Width = 555 End Begin VB.Label Label2 AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "Tel No :" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 165 Left = 135 TabIndex = 21 Top = 2580 Width = 570 End Begin VB.Label Label1 AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "Name :" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 165 Left = 200 TabIndex = 20 Top = 2200 Width = 510 End Begin VB.Label Email AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "Compose E-Mail" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 165 Left = 570 TabIndex = 19 Top = 960 Width = 1185 End Begin VB.Label Dialer AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "Telephone Dialer" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 165 Left = 570 TabIndex = 18 Top = 1320 Width = 1275 End Begin VB.Label Address AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "Address Book" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 165 Left = 2505 TabIndex = 17 Top = 1320 Width = 1035 End Begin VB.Label Calculator AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "Calculator" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 165 Left = 2535 TabIndex = 16 Top = 960 Width = 765 End Begin VB.Label End AutoSize = -1 'True BackColor = &H8000000E& BackStyle = 0 'Transparent Caption = "X" BeginProperty Font Name = "Tahoma" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 165 Left = 3455 TabIndex = 0 Top = 40 Width = 105 End Begin VB.Image Image1 Height = 3720 Left = 0 Picture = "Address.frx":306FC Top = 0 Width = 3705 End Attribute VB_Name = "Contacts" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim i As Integer Private Sub Calculator_Click() Dim j As Integer j = 0 s = App.Path + "\address1.dat" Open s For Output As #2 Do Until j = smax Write #2, sair(j).first Write #2, sair(j).telno Write #2, sair(j).Email j = j + 1 Loop Close #2 On Error GoTo err: Me.Hide main.Show End Sub Private Sub Command1_Click() On Error GoTo err: ReDim Preserve sair(smax + 1) sair(smax).first = Text1.Text sair(smax).telno = Text2.Text sair(smax).Email = Text3.Text smax = smax + 1 i = smax - 1 Form2.Label1.Caption = "The Record Was Added Successfully !" Form2.Show 1 Command1.Enabled = False End Sub Private Sub Command10_Click() On Error GoTo err: sair(i).first = Text1.Text sair(i).telno = Text2.Text sair(i).Email = Text3.Text Form2.Label1.Caption = "The Record Was Saved Successfully !" Form2.Show 1 End Sub Private Sub Command11_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Command1.Enabled = True Command6.Enabled = False Command10.Enabled = False Text1.SetFocus On Error GoTo err: End Sub Private Sub Command2_Click() Command1.Enabled = False If smax = 0 Then Exit Sub On Error Resume Next i = 0 Text1.Text = sair(i).first Text2.Text = sair(i).telno Text3.Text = sair(i).Email On Error GoTo err End Sub Private Sub Command3_Click() Command1.Enabled = False If smax = 0 Then Exit Sub On Error Resume Next i = (i - 1 + smax) Mod smax Text1.Text = sair(i).first Text2.Text = sair(i).telno Text3.Text = sair(i).Email On Error GoTo err End Sub Private Sub Command4_Click() Command1.Enabled = False If smax = 0 Then Exit Sub On Error Resume Next i = (i + 1) Mod smax Text1.Text = sair(i).first Text2.Text = sair(i).telno Text3.Text = sair(i).Email On Error GoTo err End Sub Private Sub Command5_Click() Command1.Enabled = False If smax = 0 Then Exit Sub On Error Resume Next i = smax - 1 Text1.Text = sair(i).first Text2.Text = sair(i).telno Text3.Text = sair(i).Email On Error GoTo err End Sub Private Sub Command6_Click() Dim exitcon As Variant exitcon = MsgBox(" Are you sure you want to delete " & Text1.Text & " ?", vbYesNo, " Delete Record ?") If exitcon = vbYes Then If smax < 0 Then MsgBox ("There is nothing to delete !") Exit Sub ElseIf smax = 1 Or smax < 1 Then i = 0 Text1.Text = "" Text2.Text = "" Text3.Text = "" smax = 0 Exit Sub End If Dim z z = i While z <> smax - 1 sair(z).first = sair((z + 1)).first '***** sair(z).telno = sair((z + 1)).telno sair(z).Email = sair((z + 1)).Email z = z + 1 Wend smax = smax - 1 i = (i) Mod smax Text1.Text = sair(i).first Text2.Text = sair(i).telno Text3.Text = sair(i).Email Text1.Text = "" Text2.Text = "" Text3.Text = "" Form2.Label1.Caption = "The Record Was Deleted Successfully !" Form2.Show 1 Cancel = 1 End If On Error GoTo err End Sub Private Sub Command9_Click() Dim j As Integer j = 0 s = App.Path + "\address1.dat" Open s For Output As #2 Do Until j = smax Write #2, sair(j).first Write #2, sair(j).telno Write #2, sair(j).Email j = j + 1 Loop Close #2 Dim exitcon As Variant exitcon = MsgBox(" Are you sure you want to Exit ?", vbYesNo, " Personal Organiser 3.0") If exitcon = vbYes Then Unload Me Cancel = 1 End If On Error GoTo err: End Sub Private Sub Dialer_Click() MsgBox "Under Construction !", vbOKOnly, " Construction" End Sub Private Sub Email_Click() MsgBox "Under Construction !", vbOKOnly, " Construction" End Sub Private Sub End_Click() Dim j As Integer j = 0 s = App.Path + "\address1.dat" Open s For Output As #2 Do Until j = smax Write #2, sair(j).first Write #2, sair(j).telno Write #2, sair(j).Email j = j + 1 Loop Close #2 Dim exitcon As Variant exitcon = MsgBox(" Are you sure you want to Exit ?", vbYesNo, " Personal Organiser 3.0") If exitcon = vbYes Then Unload Me Cancel = 1 End If On Error GoTo err: End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End Sub Private Sub Form_Load() Command6.Enabled = False Command10.Enabled = False i = 0 smax = 0 ppath = "" On Error GoTo err s = App.Path + "\address1.dat" Open s For Input As #1 Do Until EOF(1) ReDim Preserve sair(smax + 1) Input #1, sair(smax).first Input #1, sair(smax).telno Input #1, sair(smax).Email smax = smax + 1 Loop Close #1 i = smax - 1 formen = IndForm1.Bitmap2Form(Me.Picture, vbBlack) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) FormDrag Me End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) FormDrag Me End Sub Private Sub Text1_Change() Command10.Enabled = True Command6.Enabled = True End Sub Private Sub Text2_Change() Command10.Enabled = True Command6.Enabled = True End Sub Private Sub Text3_Change() Command10.Enabled = True Command6.Enabled = True End Sub